home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 1 / Dark_Star_01_1995_-_de_Side_B.d64 / text editor (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  2KB  |  111 lines
  1. 5 print "[147]"
  2. 10 print "[147]";
  3. 20 poke 53280,0:poke53281,0
  4. 30 print tab(9);"[154][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  5. 50 print tab(9);"[154][194]    [146][187][172]   [146][187]     [154][146][194]"
  6. 60 print tab(9);"[154][194] [146][188]  [146][190][188]  [146][154][194]"
  7. 70 print tab(9);"[154][194] [146][172] [146] [146][187][162] [146][154][194]"
  8. 80 print tab(9);"[154][194]    [146][190][188]   [146][187]    [146][154][194]"
  9. 90 print tab(9);"[154][194]  [146][162][188]  [146][154][194]"
  10. 100 print tab(9);"[154][194] [161][146][161] [146][187][172]  [146][154][194]"
  11. 110 print tab(9);"[154][194]  [146][188]   [146][190]     [146][154][194]"
  12. 115 print tab(9);"[154][194][161][188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][154][194]"
  13. 117 print tab(9);"[154][194][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][154][194]"
  14. 120 print tab(9);"[194]";tab(29);"[194]"
  15. 130 print tab(9);"[194]  [156]s o f t w a r e[154]  [194]"
  16. 140 print tab(9);"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  17. 150 print
  18. 155 print tab(10);"by rainer f.schuett"
  19. 160 print ""
  20. 170 print tab(19);"    rse-software  "
  21. 180 print tab(19);"camphuysenstraat 109"
  22. 190 print tab(19);"  2231tb rijnsburg "
  23. 200 print tab(19);"      holland "
  24. 210 for d=1 to 9000:next
  25. 215 dim b$(25)
  26. 220 poke 53280,2:poke 53281,2
  27. 230 print "[147]"
  28. 240 print tab(9);"t e x t - e d i t o r"
  29. 250 print chr$(8);""
  30. 260 print "[145]l[146]esen, s[146]chreiben oder e[146]nd?"
  31. 270 for d=1 to 50
  32. 280 get a$:if a$="l" or a$="s" or a$="e" then 320
  33. 290 next d
  34. 300 print "[145]lesen, schreiben oder end?"
  35. 305 for d=1 to 50
  36. 310 get a$:if a$="l" or a$="s" or a$="e" then 320
  37. 315 next
  38. 317 goto 260
  39. 319 rem write routine
  40. 320 print "[147][154]"
  41. 330 poke 53280,6:poke 53281,6
  42. 340 if a$="l" then 1000
  43. 345 if a$="e" then 2000
  44. 350 print ""
  45. 360 print "schreibe deinen text."
  46. 370 print "   wenn neue seite gewuenscht, drueck @"
  47. 372 print "  schreibe mit grossen und kleinen"
  48. 373 print "           buchstaben."
  49. 375 input "drueck return";a$
  50. 380 print chr$(14)
  51. 390 print "[147]";
  52. 395 poke 53280,6:poke 53281,14
  53. 400 rem********************************
  54. 410 get a$:if a$="@" then 450
  55. 420 print a$;:goto 410
  56. 450 for p=0 to 24
  57. 460 for n=1 to 40
  58. 470 m=p*40+n+1023
  59. 480 d=peek(m)+64
  60. 490 d$=chr$(d)
  61. 495 b$(p)=b$(p)+d$
  62. 500 if m>2023 then 530
  63. 510 next n
  64. 520 next p
  65. 530 print chr$(142);"[147]"
  66. 540 print "neue seite? (j/n)"
  67. 550 get a$:if a$<>"j" and a$<>"n" then 550
  68. 560 print "[147]"
  69. 570 open 1,1,1,"text"
  70. 580 for p=0 to 24
  71. 590 print#1,b$(p)
  72. 600 next p
  73. 610 print#1,a$
  74. 620 close 1
  75. 630 if a$="n" then 220
  76. 635 for p=0 to 24:b$(p)="":next
  77. 640 goto 380
  78. 650 rem********************************
  79. 1000 rem read routine
  80. 1005 print "wenn fertig mit seite lesen drueck
  81. 1006 [153] "'return'"
  82. 1007 [153] ""
  83. 1008 [133] "drueck return";x$
  84. 1010 [153] "load";
  85. 1020 [151] 53280,14:[151] 53281,14
  86. 1030 [159] 1,1,0,"text"
  87. 1040 [129] p[178]0 [164] 24
  88. 1050 [132]1,b$(p)
  89. 1060 [130] p
  90. 1070 [132]1,a$
  91. 1080 [160] 1
  92. 1090 [153] "load";[199](14)
  93. 1100 [129] c[178]55296 [164] 56295:[151] c,6:[130]
  94. 1110 [129] p[178]0 [164] 24
  95. 1120 [129] n[178]1 [164] 40
  96. 1130 d$[178][202](b$(p),n,1)
  97. 1140 d[178][198](d$)[171]64
  98. 1150 m[178]p[172]40[170]n[170]1023
  99. 1160 [151] m,d
  100. 1170 [139] m[177]2023 [167] 1200
  101. 1180 [130] n
  102. 1190 [130] p
  103. 1195 [161] x$:[139] x$[179][177][199](13) [167] 1195
  104. 1197 [153] [199](142);"load";
  105. 1200 [139] a$[178]"j" [167] 1010
  106. 1210 [137] 220
  107. 1220 [143]*******************************
  108. 2000 [143] end routine
  109. 2010 [151] 53280,14:[151] 53281,6
  110. 2020 [153] "loadcont":[128]
  111.